home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 23
/
Amiga Format AFCD23 (Feb 1998, Issue 107).iso
/
-seriously_amiga-
/
shareware
/
sound
/
musicmaniii_inst
/
data
/
arexx
/
exportlist.mmx
< prev
next >
Wrap
Text File
|
1997-12-01
|
2KB
|
55 lines
/*
* ExportLIST.mmx
*
*
* ©1997 Andreas Mair
*
*
* Version: 1.00
* Date: 1.08.1997
*
* Function: A simple ARexx-Script for use with MusicManIII.
* This script will read all records of the currently open file
* in MusicManIII and write it to the ASCII-file "mm3list.asc".
*
* The file has the following layout:
* Recordnumber | Artist | Title | Type | Released
*
* NOTE: this script will always overwrite the file "mm3list.asc",
* so you have to rename the file if you want to keep it.
*
* Requirements: MusicManIII V3.06 (or above)
* ARexx running
*
* Usage: - first start MusicManIII and load the file you want to export
* - go to a CLI (or Shell) and start this script ("rx ExportLIST.mmx")
*
*/
ADDRESS 'MUSICMAN'
OPTIONS RESULTS
QUERY RECORDSCOUNT
MaxRecords=RESULT
RECORD GET NUMBER 1
CALL OPEN( "data", "mm3list.asc", 'WRITE' )
CALL WRITELN( "data", "No. Artist Title Type Rel." )
CALL WRITELN( "data", "---------------------------------------------------------------------------------------------" )
DO i=1 TO MaxRecords
SAY "Working on record #"i" of "MaxRecords
QUERY ARTIST TITLE RELEASED TYPE STEM record.
CALL WRITELN( "data", RIGHT(i,5)" "LEFT(record.artist,30)" "LEFT(record.title,30)" "LEFT(record.type,20)" "record.released )
RECORD NEXT
END
CALL CLOSE( "data" )